Coyote Gulch 2021
knitr::include_graphics("C:/Users/nicka/CImages/gulch.jpg")
## Warning: Removed 84 row(s) containing missing values (geom_path).
## Warning: Removed 84 rows containing missing values (geom_point).
cities %>%
ggplot(aes(x=NearestCity,y=Hotels,fill=Park))+
geom_bar(stat = "identity")
## Warning: Removed 2 rows containing non-finite values (stat_boxplot).
## Warning: Removed 3 rows containing non-finite values (stat_boxplot).
year19 %>%
mutate(Month = factor(Month,levels = months)) %>%
ggplot(aes(x=Month,y=MonthlyVisitor))+
geom_line(aes(group = 1))+
ylab("Monthly Visitors")+
theme(axis.text.x = element_text(angle = 90,size = 5))+
facet_wrap(~Park)